home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / ada / adaed-1.11 / adaed-1 / Adaed-1.11.0a / 14.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-07  |  832 b   |  35 lines
  1. /*
  2.  * Copyright (C) 1985-1992  New York University
  3.  * 
  4.  * This file is part of the Ada/Ed-C system.  See the Ada/Ed README file for
  5.  * warranty (none) and distribution info and also the GNU General Public
  6.  * License for more details.
  7.  
  8.  */
  9. #include "hdr.h"
  10. #include "vars.h"
  11. #include "attr.h"
  12. #include "errmsgprots.h"
  13. #include "chapprots.h"
  14.  
  15. void check_range_attribute(Node node)                /*;check_range_attribute*/
  16. {
  17.     if (N_KIND(node) == as_attribute
  18.       && ((int)attribute_kind(node) == ATTR_O_RANGE
  19.       ||  (int)attribute_kind(node) == ATTR_T_RANGE)) {
  20. #ifdef ERRNUM
  21.         errmsgn(128,10,node);
  22. #else
  23.         errmsg("invalid use of 'RANGE in expression", "none", node) ;
  24. #endif
  25.     }
  26. }
  27.  
  28. #ifdef TBSN
  29. int is_value(char *x)                                        /*;is_value*/
  30. {
  31.     TO_ERRFILE("is_value (ch 14) not implemented");
  32.     return       (is_tuple(x) and x(1) = 'ivalue') ;
  33. }
  34. #endif
  35.